﻿<Serializable()> _
Public Class Eetapa

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _descProyecto As String
    Private _idEtapa As String
    Private _desEtapa As String
    Private _areaTerreno As Decimal
    Private _nroInmuebles As Int32
    Private _fchInicio As String
    Private _fchFin As String
    Private _email As String
    Private _fchCreacion As String
    Private _fchModificacion As String
    Private _observacion As String
    Private _entidadFin As EentidadFin
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _ubigeo As Eubigeo
    Private _direccion As String
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property descProyecto() As String
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property idEtapa() As String
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As String)
            _idEtapa = value
        End Set
    End Property
    Public Property desEtapa() As String
        Get
            Return _desEtapa
        End Get
        Set(ByVal value As String)
            _desEtapa = value
        End Set
    End Property
    Public Property areaTerreno() As Decimal
        Get
            Return _areaTerreno
        End Get
        Set(ByVal value As Decimal)
            _areaTerreno = value
        End Set
    End Property
    Public Property nroInmuebles() As Int32
        Get
            Return _nroInmuebles
        End Get
        Set(ByVal value As Int32)
            _nroInmuebles = value
        End Set
    End Property
    Public Property fchInicio() As String
        Get
            Return _fchInicio
        End Get
        Set(ByVal value As String)
            _fchInicio = value
        End Set
    End Property
    Public Property fchFin() As String
        Get
            Return _fchFin
        End Get
        Set(ByVal value As String)
            _fchFin = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property fchCreacion() As String
        Get
            Return _fchCreacion
        End Get
        Set(ByVal value As String)
            _fchCreacion = value
        End Set
    End Property
    Public Property fchModificacion() As String
        Get
            Return _fchModificacion
        End Get
        Set(ByVal value As String)
            _fchModificacion = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property
    Public Property EentidadFin() As EentidadFin
        Get
            Return _entidadFin
        End Get
        Set(ByVal value As EentidadFin)
            _entidadFin = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property ubigeo() As Eubigeo
        Get
            Return _ubigeo
        End Get
        Set(ByVal value As Eubigeo)
            _ubigeo = value
        End Set
    End Property
    Public Property direccion() As String
        Get
            Return _direccion
        End Get
        Set(ByVal value As String)
            _direccion = value
        End Set
    End Property

#End Region

#Region "           Propiedades Avanzadas           "
    
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idEtapa As String, ByVal desEtapa As String)
        Me.idEtapa = idEtapa
        Me.desEtapa = desEtapa
    End Sub
    'Public Sub New(ByVal idproyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal desEtapa As String, _
    '               ByVal areaTerreno As Decimal, ByVal nroInmuebles As Int32, ByVal fchInicio As String, ByVal fchFin As String, _
    '               ByVal email As String, ByVal fchCreacion As String, ByVal fchModificacion As String, ByVal observacion As String, _
    '               ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal estado As String, ByVal ubigeo As String, _
    '               ByVal departamento As String, ByVal provincia As String, ByVal distrito As String)
    '    Me.idProyecto = idproyecto
    '    Me.descProyecto = descProyecto
    '    Me.idEtapa = idEtapa
    '    Me.desEtapa = desEtapa
    '    Me.areaTerreno = areaTerreno
    '    Me.nroInmuebles = nroInmuebles
    '    Me.fchInicio = fchInicio
    '    Me.fchFin = fchFin
    '    Me.email = email
    '    Me.fchCreacion = fchCreacion
    '    Me.fchModificacion = fchModificacion
    '    Me.observacion = observacion
    '    _entidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
    '    Me.estado = estado
    '    Me.descEstado = IIf(descEstado = 1, "HABILITADO", "DESHABILITADO")
    '    _ubigeo = New Eubigeo(ubigeo, departamento, provincia, distrito)
    '    Me.direccion = _ubigeo.descripcionUbigeo
    'End Sub
    Public Sub New(ByVal idproyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal desEtapa As String, _
                   ByVal areaTerreno As Decimal, ByVal nroInmuebles As Int32, ByVal fchInicio As String, ByVal fchFin As String, _
                   ByVal email As String, ByVal fchCreacion As String, ByVal fchModificacion As String, ByVal observacion As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal estado As String, ByVal ubigeo As String, _
                   ByVal departamento As String, ByVal provincia As String, ByVal distrito As String)
        Me.idProyecto = idproyecto
        Me.descProyecto = descProyecto
        Me.idEtapa = idEtapa
        Me.desEtapa = desEtapa
        Me.areaTerreno = areaTerreno
        Me.nroInmuebles = nroInmuebles
        Me.fchInicio = fchInicio
        Me.fchFin = fchFin
        Me.email = email
        Me.fchCreacion = fchCreacion
        Me.fchModificacion = fchModificacion
        Me.observacion = observacion
        _entidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        _ubigeo = New Eubigeo(ubigeo, departamento, provincia, distrito)
        Me.direccion = _ubigeo.descripcionUbigeo
    End Sub
#End Region

End Class
